From: Lars Magne Ingebrigtsen Date: Tue, 7 Sep 2010 00:05:59 +0000 (+0000) Subject: gnus-async.el (gnus-async-article-callback): Always prefetch images for groups that... X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~6605^2~25 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=07a36378cf6265da906176cc623d22a127b35700;p=emacs.git gnus-async.el (gnus-async-article-callback): Always prefetch images for groups that want that. --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 915e1a88e66..dc005c65a67 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,5 +1,8 @@ 2010-09-06 Lars Magne Ingebrigtsen + * gnus-async.el (gnus-async-article-callback): Always prefetch images + for groups that want that. + * nntp.el (nntp-wait-for-string): Supply a timeout for accept-process-output to ensure progress. diff --git a/lisp/gnus/gnus-async.el b/lisp/gnus/gnus-async.el index 1e9c1dff77f..434afb68467 100644 --- a/lisp/gnus/gnus-async.el +++ b/lisp/gnus/gnus-async.el @@ -238,6 +238,9 @@ that was fetched." (save-excursion (save-restriction (narrow-to-region mark (point-max)) + ;; Prefetch images for the groups that want that. + (when (fboundp 'gnus-html-prefetch-images) + (gnus-async-post-fetch-function summary)) (funcall gnus-async-post-fetch-function summary)))) (gnus-async-with-semaphore (setq